home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / ada1tutr.arj / FIB.ANS (.png) < prev    next >
ANSI Art File  |  1992-09-04  |  261b  |  640x160  |  1-bit (2 colors)
Labels: text | screenshot | font
OCR: Our solution to Outside Assignment 4 (in FIB. ANS): separate (FIBTEST) function FIB(N : in POSITIVE) return POSITIVE is ANSWER : POSITIVE := 1; begin if N > 2 then ANSWER := FIB(N - 1) + FIB(N - 2); end if ; return ANSWER; end FIB;